Object Reference not set Error

Why am I getting the exception "Object reference not set to an instance of an object" on the line that calls the procedure?

Imports System.Data.SqlClient

Public Class Form1
    Dim dap1 As New SqlDataAdapter
    Dim cmd1 As New SqlCommand

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        dap1 = New SqlDataAdapter(cmd1)
        Call SetSqlDataAdapter(dap1, "Returns")

        MsgBox("Done")
    End Sub

    Private Sub SetSqlDataAdapter(ByRef da As SqlDataAdapter, strTableName As String)
        'do your stuffs here
    End Sub
End Class

Select allOpen in new window