如何在点一个button的时候跳出一个窗口，里面的内容是数据库中的一条记录，而判断的依据是窗体中的textbox,急求如何实现，谢谢。

dim str as string="select * from 表名 where(id='" & textbox.text & ")"
if textbox <>"" then
msgbox(str)
else
msgbox("表中无此记录")
end if

下面的代码供参考
     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Con.Open()
         = "SELECT * from 表名 Where ID = " & Me.TextBox1.Text
        Da.Fill(Ds, "TMP")
        If Ds.Tables("TMP").Rows.Count > 0 Then
            MsgBox("找到" & Ds.Tables("TMP").Rows.Count.ToString & "条记录")
        Else
            MsgBox("没找到符合条件的记录")
        End If
        Con.Close()
    End Sub

有点意思

学习