Hvorfor virker dette ikk
Private Sub Text2_LostFocus()Adodc2.RecordSource = "Select City from t_zipcodes where ZipCode = '" + Text2.Text + "'"
'If Not Adodc2.Recordset.EOF Then
Text1.Text = Adodc2.Recordset.Fields("City").Value
'End If
End Sub
pd - ville gerne give flere points, men har ikke fler :(
