Private Sub cmdusername_Click()
Set adorsRAM = New ADODB.Recordset
sSQL = "Select User from Master where CPU_No='" & txtcpuno.Text & "'"
MsgBox (sSQL)
With adorsRAM
.ActiveConnection = cn
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.Open sSQL
End With
If Not adorsRAM.EOF Then
'txtusername.Text = adorsRAM
Else
MsgBox "No Records Found!"
End If
End Sub
This is showing an error of type mismatch please check and help me out in finding the problem
thanks in advance