vb6 - VB6 データベースへの接続

Question

わかりました、私がやりたいことは単純に聞こえます。フォームをロードしたいのですが、フォームのロード時に、1 つのアイテムを返し、それを TextBox1 に配置する SQL ステートメントを呼び出します。これが私がこれまでに持っているものです。

 Private Sub Form_Load()

 Call openTheDatabase

 End Sub

 Public Function openTheDatabase() As Boolean

 '-- Here we want to open the database
 Dim sConnectionString As String
 Dim strSQLStmt As String

 '-- Build the connection string
 sConnectionString = "PROVIDER = MSDASQL;driver={SQL Server};database=databasename ;server=servername;uid=;pwd=;"


 strSQLStmt = "SELECT chvDealerName " & _
        "From dbo.tblDealers Where chrVSCAcctNum = '90442001'"

 TextBox1.Text = strSQLStmt

 End Function

編集

OK、それは Text1.Text でしたが、実際のデータベース エントリではなく、テキスト ボックスに文字列を取得するだけです。