unsaon ni pag trap? para dili mag redundant,,

[mcapon]

---

unsaon mani naku pag implement?
example: if i have itemnumber 1, naa siya sulod rose,tulips....
then if i try to input rose in itemnumber 1, it will trap me na naa nay rose and temnumber 1,

If TxtItemNu.Text = "" Then
           MsgBox "No Item Number entered.", vbOKOnly + vbCritical, "ERROR: Empty field/s. "
'           TxtItemNu.SetFocus
           Exit Sub
       End If
       
If TxtFlowerID.Text = "" Then
           MsgBox "No Flower ID entered.", vbOKOnly + vbCritical, "ERROR: Empty field/s. "
'           TxtFlowerID.SetFocus
           Exit Sub
       End If
       
If CboQuantity.Text = "" Then
           MsgBox "No Quantity entered.", vbOKOnly + vbCritical, "ERROR: Empty field/s. "
           CboQuantity.SetFocus
           Exit Sub
       End If
       
     On Error GoTo errSave
        Dim sqlstr As String
            sqlstr = "Insert Into STRUCTURE(STR_ITEMNO,STR_FLOWER,STR_QTY) values(" & TxtItemNu.Text & "," & TxtFlowerID.Text & "," & CboQuantity.Text & ")"
           
                 If CStr(TxtItemNu.Text) = CStr(TxtFlowerID.Text) Then
                MsgBox ("The Item Number Can't be The Same with Flower ID")
                    Exit Sub
                End If
                            
            Conn.BeginTrans
            Conn.Execute sqlstr
            Conn.CommitTrans
            
            MsgBox "STRUCTURE successfully saved!"
            
            CmdSave.Enabled = False
            CmdDelete.Enabled = False
            
            ClearText
            Unload Me
            Form1.Show
        
ExitErr:
    Exit Sub
errSave:
        Conn.RollbackTrans
        MsgBox "Error" & Err.Description, vbCritical
Resume ExitErr

unsaon mana naku? and unsa na code i need?
ako lang gi apila ko save na code para sad naa mo guide sa flow sa ako code,,,

[rhex_tendo]

' try this daw bro,

' ibutang ni sa module
Public Function IsRecordExist(strSQL as string) As Boolean
dim rs as new adodb.recordset

set rs=new adodb.recordset
rs.Open strSQL, conn,1,1

If rs.EOF Then
   IsRecordExist= False
Else
   IsRecordExist= True
End If
rs.close
End Function

' kini ang paggamit,ibutang before sa On Error GoTo errSave
If IsRecordExist("SELECT STR_ITEMNO,STR_FLOWER FROM STRUCTURE WHERE STR_ITEMNO=" & txtItemNu.Text & " AND STR_FLOWER=" & txtFlowerID.Text ) then
   msgbox "Put your message here..."
   Exit Sub
End If

'
'

[cute_judecy]

ug sa dihang naggamit na si rhex tendo ug adodb... hehe...

[mcapon]

' try this daw bro,

' ibutang ni sa module
Public Function IsRecordExist(strSQL as string) As Boolean
dim rs as new adodb.recordset

set rs=new adodb.recordset
rs.Open strSQL, conn,1,1

If rs.EOF Then
   IsRecordExist= False
Else
   IsRecordExist= True
End If
rs.close
End Function

' kini ang paggamit,ibutang before sa On Error GoTo errSave
If IsRecordExist("SELECT STR_ITEMNO,STR_FLOWER FROM STRUCTURE WHERE STR_ITEMNO=" & txtItemNu.Text & " AND STR_FLOWER=" & txtFlowerID.Text ) then
   msgbox "Put your message here..."
   Exit Sub
End If

'
'

bro error diri dapita ay

rs.Open strSQL, conn,1,1

[rhex_tendo]

' unsay error bro

' ang conn, ang imo na connection sa database bro, i think familiar na ka ana...
' try to check if open imong connection....
'

[mcapon]

' unsay error bro

' ang conn, ang imo na connection sa database bro, i think familiar na ka ana...
' try to check if open imong connection....
'

datatype mismatch in criteria expression
abg error bro, slamat kaayu bro

[mcapon]

bro solved na kai kuwang ra og ' and "

thanks so much...