Hi,
Noted, i make it clear the my previous code is bit trouble to run
My amended code as follows,
Run Time Error '3078'
Private Sub Combo4_AfterUpdate()
Dim conn As New ADODB.Connection
Dim objMyRecordset As New ADODB.Recordset
Dim strSQL As String
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider = SQLOLEDB; Data Source=SDSACCOUNT; Initial Catalog= SSPLCO; user ID=sa; Password=sa;"
conn.Open
strSQL = "select itemno from icitem"
Set objMyRecordset.ActiveConnection = conn
Set objMyRecordset = CurrentDb.OpenRecordset(strSQL)
Debug.Print strSQL
Me.Combo4.RowSourceType = "Table/Query"
End Sub
Thanks!!!