Salve Ragazzi, non Capisco cosa ci sia di sbagliato in questo codice, qualcuno potrebbe aiutarmi????

Grazie
codice:
 Pagina Default. Aspx


<%@ Import Namespace= "LoginVB" %>

<script language= "vb" runat = "server" >
    Sub Button1_Click(ByVal Sender As Object, ByVal E As EventArgs)
        Dim Data As AutentObjVB("server=(local);database=Clienti;user=sa")
        Data.GetUser(TextBox1.Text, TextBox1.Text)
        Label1.Text = "OK"
    End Sub
</script>

<html>
<body>
    <form id="form1" runat="server">
    <div>
        <table style="width: 478px">
            <tr>
                <td style="width: 98px">
                    login</td>
                <td style="width: 179px">
                    <asp:TextBox ID="TextBox1" runat="server"></asp:TextBox></td>
            </tr>
            <tr>
                <td style="width: 98px">
                    password</td>
                <td style="width: 179px">
                    <asp:TextBox ID="TextBox2" runat="server"></asp:TextBox></td>
            </tr>
            <tr>
                <td style="width: 98px">
                </td>
                <td style="width: 179px">
                    <asp:Button ID="Button1" runat="server" Text="Button" />
                    <asp:Label ID="Label1" runat="server" ForeColor="Red"></asp:Label>
                </td>
            </tr>
        </table>
    </div>
    </form>
</body>
</html>

codice:
 Pagina default.aspx.vb



Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Reflection

Namespace LoginVB
    Public Class AutentObjVB
        Private ConnectionString As String

        Public Sub New()
            MyBase.New()
            ConnectionString = ""
        End Sub

        Public Sub New(ByVal ConnStr As String)
            MyBase.New()
            ConnectionString = ConnStr
        End Sub

        Public Property ConnectionString() As String
            Get
                Return ConnectionString
            End Get

            Set(ByVal value As String)
                ConnectionString = Value
            End Set
        End Property

        Public Function GetUser(ByVal login As String, ByVal password As String) As DataSet

            Dim myConnection As New SqlConnection(ConnectionString)
            Dim CommandText As String = "select Login, Password FROM Cliente where ([Clienti].[Login] = '" + login + "' and [Clienti].[Password] = '" + password + "')"
            Dim myCommand As New SqlDataAdapter(CommandText, myConnection)

            Dim ds As New DataSet()
            myCommand.Fill(ds)

            Return ds
        End Function
    End Class
End Namespace
Grazie