é isso mesmo
quanto ao erro existe varias forma de trata-lo ou evita-lo
o exemplo que enviei pra você aborda varios comandos
voce pode adapta-lo a seu gosto, bom vamos aos erros
primeiro no Load do form2 insira esta linha:
Option1.Value = True
depois no commandbutton2_click()
insira estas linhas
'
If cmblocalpesq.Text = "Escolha o campo a pesquisar" Then
MsgBox "Você deve escolher um campo a pesquisar", vbInformation, "Campo Vazio"
cmblocalpesq.SetFocus
Exit Sub
End If
'
If Text1.Text = "" Then
MsgBox "Item de pesquisa está vazio, digite o que deseja pesquisar" _
,vbInformation, "Item Vazio"
Text1.SetFocus
Exit Sub
End If
