初学者有关数据绑定的求救，急！ （毕业设计）

Question

Dim OleDbConnection1 As System.Data.OleDb.OleDbConnection
        Dim OleDbDataAdapter1 As System.Data.OleDb.OleDbDataAdapter
        Dim objtable As DataTable
        Dim strcmd As String
        Dim strconn As String
        Dim objLink As New DataSet()
        strconn = "Provider=SQLOLEDB.1;User ID=xx;pwd=xx;datasource=192.168.0.1;Initial Catalog=test;"
        strcmd = "select * from tb "
        OleDbConnection1 = New System.Data.OleDb.OleDbConnection(strconn)
        OleDbDataAdapter1 = New System.Data.OleDb.OleDbDataAdapter(strcmd, OleDbConnection1)
        OleDbDataAdapter1.Fill(objLink, "tb")
        objtable = objLink.Tables("tb")        '首天的查询
        OleDbConnection1.Close()
        dg1.DataSource = objtable.DefaultView
        dg1.DataBind()