>anさん
指摘有難うございます。
試しに作ってみたんですが、コード中央の※マークの箇所が何を示しているのか分かりません。
コード自体にエラーは無いのですが、得意先データベースに無い値を入力してもMsgBoxで表示されます。
どうしたら良いでしょうか？

Dim St As String
        Dim Cn As New System.Data.SqlClient.SqlConnection
        Dim SQL As System.Data.SqlClient.SqlCommand
        Dim ServerName As String = "Data Source=user;Initial Catalog=データベース;Integrated Security=True"
        Dim DatabaseName As String = "得意先データベース"

       ※ St = "Server=""(local)"";"
       ※ St &= "integrated security=SSPI;"
        St &= "initial catalog = 得意先データベース"

        Cn.ConnectionString = St

        SQL = Cn.CreateCommand

        SQL.CommandText = "SELECT 4000 FROM ユーザー情報"

        Cn.Open()

        MsgBox(SQL.ExecuteScalar)

        Cn.Close()
        SQL.Dispose()
        Cn.Dispose()

>HiDEさん
検索SQLに関してですが、これでも大丈夫でしょうか？

Dim cnstr As String = "Data Source=user;Initial Catalog=データベース;Integrated Security=True"
        Dim sql As String
        sql = "SELECT * "
        sql += "FROM 得意先データベース"
(ifなど中略)
 sql += " WHERE (取引先ｺｰﾄﾞ Like '%" & TextBox1.Text.Trim & "%')"