エクセルからSQLの接続の仕方

エクセルを使ってMSSQLに接続したいのですが、エラーがでて接続できません。
なぜでしょうか？

[エラー内容]
コンパイルエラー：
ユーザー定義型は定義されれいません。
コードの下の部分で発生します。

Dim Cn As New System.Data.SqlClient.SqlConnection

[コード]
Private Sub CommandButton1_Click()

Dim St As String
Dim Cn As New System.Data.SqlClient.SqlConnection
Dim SQL As System.Data.SqlClient.SqlCommand
Dim ServerName As String
Dim UserID As String
Dim Password As String
Dim DatabaseName As String

ServerName = "TEST-PC" 'サーバー名(またはIPアドレス)
UserID = "sa" 'ユーザーID
Password = "password" 'パスワード
DatabaseName = "TEST_DB_20140801" 'データベース


St = "Server=" & ServerName & ";" & "User ID=" & UserID & ";" & "Password=" & Password & ";" & "Initial Catalog=" & DatabaseName

Cn.ConnectionString = St

SQL = Cn.CreateCommand

SQL.CommandText = "SELECT * FROM LOG_DATA_XLINE"

Cn.Open

MsgBox (SQL.ExecuteScalar)

Cn.Close
SQL.Dispose
Cn.Dispose


End Sub

No.1 回答者： x-1919 回答日時： 2014/08/01 12:35

Excel VBA ですよね。

。。

System.Data.SqlClient.SqlConnection
System.Data.SqlClient.SqlCommand
これ、VBA で利用できないでしょ？
これは .NET Framework 用でしょ