problem med datagrid

Har lite problem med datagrid.
Felmeddelande

Exception Details: System.NullReferenceException: Object reference not set to an instance of an object.

Source Error: 

Line 25:         objcmd1.Fill(ds1, "info")
Line 26:         'Välj dataviewobjekt och bind till serverkontrollen
Line 27:         Datagrid1.DataSource = ds.Tables("kontakt"). _
Line 28:         DefaultView
Line 29:         Datagrid1.DataBind()
 

Source File: h:\inetpub\wwwroot\dena\default.aspx.vb    Line: 27

Koden ser ut så här.

Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Data
Imports System.Data.OleDb
Imports System.Configuration

Public Class default1 : Inherits Page

    Public Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim objconn As New OleDbConnection(ConfigurationSettings.AppSettings("connectionstring"))
        Dim Datagrid1 As DataGrid
        Dim Datagrid2 As DataGrid

        Dim objcmd As New OleDbDataAdapter _
                  ("select * from kontakt", objconn)
        Dim objcmd1 As New OleDbDataAdapter _
            ("select top 1 * from info", objconn)

        'Fyll datasetobjekt
        Dim ds As DataSet = New DataSet()
        objcmd.Fill(ds, "kontakt")
        Dim ds1 As DataSet = New DataSet()
        objcmd1.Fill(ds1, "info")
        'Välj dataviewobjekt och bind till serverkontrollen
        Datagrid1.DataSource = ds.Tables("kontakt"). _
        DefaultView
        Datagrid1.DataBind()
        Datagrid2.DataSource = ds1.Tables("info"). _
        DefaultView
        Datagrid2.DataBind()

        Dim id As Integer = "1"
        Dim datum As String = DateTime.Now.ToString("d")
        Dim strsql3 As String = String.Format("update statistik set antal=antal+1,senaste='{0}' where id={1}", datum, id)
        Dim objcmd3 As New OleDbCommand(strsql3, objconn)
        objconn.Close()
        objcmd3.Connection.Open()
        objcmd3.ExecuteNonQuery()
        objcmd3.Connection.Close()
        objconn.Open()
    End Sub

End Class