Could someone double check my query expression below. Something is not right I know but I cant figure out what it is. I think it is a part of the And tblArea.Location = [Forms]![frmSelectLocationStartDefault]![cmbLocation] but I cant be certain....Just an fyi that cmbloacation data type is numeric (autorecord).
Set rs = New ADODB.Recordset
Dim NodX As Node
Set strLocationName = Forms!frmSelectLocationStartDefault!cmbLocation
With rs
.ActiveConnection = CurrentProject.Connection
.CursorLocation = adUseServer
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open "SELECT * FROM tblArea WHERE tblArea.AreaName <> 'na' And tblArea.LocationID = [Forms]![frmSelectLocationStartDefault]![cmbLocation] ORDER BY tblArea.AreaName;"
End With
Set rs = New ADODB.Recordset
Dim NodX As Node
Set strLocationName = Forms!frmSelectLocationStartDefault!cmbLocation
With rs
.ActiveConnection = CurrentProject.Connection
.CursorLocation = adUseServer
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open "SELECT * FROM tblArea WHERE tblArea.AreaName <> 'na' And tblArea.LocationID = [Forms]![frmSelectLocationStartDefault]![cmbLocation] ORDER BY tblArea.AreaName;"
End With