Openform multiple where statements

[jak26]

Hi

I have an openform method in a form and I wish to have multiple where conditions however it is not working. This is the code that I have at present

Function edit()

Dim teama As String
Dim clause As String
Dim dat As Date


teama = Forms![Edit_Entries_Form]![Combo5].Value
dat = Forms![Edit_Entries_Form]![Text1].Value

clause = "[Team]='" & teama & "' " & "AND [Datea]='" & dat & "'"

On Error GoTo Err_Command20_Click


DoCmd.OpenForm "Edit_Entries", acFormDS, , clause

Any ideas?

Cheers

 

[james_lankford]

Dim dat As string

clause = "[Team]='" & teama & "' " & "AND [Datea]=#" & dat & "#"
msgbox clause

 

[jak26]

Thank you very much, works perfectly, although I should have guessed that myself

Cheers