Dim objSQLString As String Dim cFilter As String cFilter = lnSelectedFunctionType.ToString objSQLString = "Select * from ProgramFunctions where FunctionTypeID = '" + cFilter + " '" Dim objSQLCommand As New System.Data.SqlClient.SqlCommand(objSQLString, Me.SqlConnection1) Dim objDataReader As SqlClient.SqlDataReader Me.SqlConnection1.Open() objDataReader = objSQLCommand.ExecuteReader() Me.DataGrid1.DataSource = objDataReader Me.DataGrid1.DataBind() Me.SqlConnection1.Close()Thanks for your help