Работа с sqlDataAdapter

    Public Shared Function ExecuteSelect(ByVal CommandText As String, ByVal Params() As System.Data.SqlClient.SqlParameter, Optional ByVal CommandType As System.Data.CommandType = Data.CommandType.StoredProcedure) As Data.DataTable
        Using cn As New Data.SqlClient.SqlConnection(ConfigurationManager.ConnectionStrings("DLC").ConnectionString)
            cn.Open()
            Using cmd As Data.SqlClient.SqlCommand = cn.CreateCommand
                cmd.CommandType = CommandType
                cmd.CommandText = CommandText
                cmd.Parameters.AddRange(Params)
                Using da As New Data.SqlClient.SqlDataAdapter(cmd)
                    Using ds As New Data.DataSet
                        da.Fill(ds)
                        Return ds.Tables(0)
                    End Using
                End Using
            End Using
            cn.Close()
        End Using
    End Function

    Public Shared Function getMd5Hash(ByVal input As String) As String
        Dim md5Hasher As System.Security.Cryptography.MD5 = System.Security.Cryptography.MD5.Create()
        Dim data As Byte() = md5Hasher.ComputeHash(Encoding.Default.GetBytes(input))
        Dim sBuilder As New StringBuilder()
        Dim i As Integer
        For i = 0 To data.Length - 1
            sBuilder.Append(data(i).ToString("x2"))
        Next i
        Return sBuilder.ToString()
    End Function