no results found

[szlamany]

but it doesnt let me open the rs, comes up with that error!!! i can only check the state if its open rite?!

Guessing that you got an error on the SQL side then - so no RS at all...

So check

If rs is Nothing Then
   MsgBox "Got no RS"
End if

[pame1la]

Private Sub Serach_Click()
If txtName.Text = "" Then
MsgBox "Please enter product name", vbOKOnly, "Search Error"
Else
Str = "SELECT * From Details WHERE ItemName = '" & txtName.Text & "'"""
rs.Open strTemp, gcnSV, adOpenForwardOnly, adLockReadOnly
If rs.State = 0 Then
MsgBox "No records match", vbOKOnly, "Search Result"

or

Private Sub Serach_Click()
If txtName.Text = "" Then
MsgBox "Please enter product name", vbOKOnly, "Search Error"
Else
Str = "SELECT * From Details WHERE ItemName = '" & txtName.Text & "'"""
If Str = "" Then
MsgBox "No records match", vbOKOnly, "Search Result"

WHAT AM I DOIN WRONG?

[szlamany]

Private Sub Serach_Click()
If txtName.Text = "" Then
MsgBox "Please enter product name", vbOKOnly, "Search Error"
Else
Str = "SELECT * From Details WHERE ItemName = '" & txtName.Text & "'"""
rs.Open strTemp, gcnSV, adOpenForwardOnly, adLockReadOnly
If rs.State = 0 Then
MsgBox "No records match", vbOKOnly, "Search Result"

or

Private Sub Serach_Click()
If txtName.Text = "" Then
MsgBox "Please enter product name", vbOKOnly, "Search Error"
Else
Str = "SELECT * From Details WHERE ItemName = '" & txtName.Text & "'"""
If Str = "" Then
MsgBox "No records match", vbOKOnly, "Search Result"

WHAT AM I DOIN WRONG?

What is this mess at the end of the string??

Str = "SELECT * From Details WHERE ItemName = '" & txtName.Text & "'"""


It should simply be:

Str = "SELECT * From Details WHERE ItemName = '" & txtName.Text & "'"