Error al conectarme al servidor

[mrprogman]

sql server 2008................brinco un login page y de ahi brinca a esta otra pagina...gracias por tu respuesta

TextBox1.Text = Session("usuario")
TextBox2.Text = Session("permiso")

Dim usuario As String
Dim clave As String
usuario = Me.TextBox1.Text.Trim()
clave = Me.TextBox2.Text.Trim()
Dim DS As DataSet
Dim MyConnection As SqlConnection
Dim MyCommand As SqlDataAdapter
MyConnection = New SqlConnection("Data Source=DELLMR;Initial Catalog=Compras;User ID=sa;Password=Stm01")
MyCommand = New SqlDataAdapter(" select permiso from usuariosOC WHERE Usuario ='" & usuario & "' AND Clave ='" & clave & "' ", MyConnection)

DS = New DataSet()
MyCommand.Fill(DS, "usuariosOC")
'GridView1.DataSource = DS.Tables("semusers").DefaultView
'GridView1.DataBind()
TextBox3.DataBind()