データベースを使うためのコードで

        Dim Cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Database\data.mdb")
        Dim SQLCm As OleDbCommand = Cn.CreateCommand
        Dim y As String
        Dim x As String

        x = ComboBox1.Text
        y = ComboBox2.Text

        SQLCm.CommandText = "SELECT 名前 FROM 名簿 WHERE クラス = '" & x & "' and 番号 = " & y & ""

        Cn.Open()
        TextBox1.Text = SQLCm.ExecuteScalar
        Cn.Close()

と、なっているんですが
ＶＢを起動しているパスを取得して、そのパスを
・・・\Database\data.mdb"　この「・・・」の場所に使いたいのですが
変数を使ってやろうと思ってもエラーがでてしまうのですが
どうすれば、変数が使えるようになるんでしょうか？