我的对象引用有什么问题？

Question

我有以下代码，但是当单步执行时，我收到错误。

在线; osql.CommandType = CommandType.Text，错误是

  

对象引用未设置为对象的实例

造成这种情况的原因是什么？我知道这是一个常见的问题，但通常我已设法修复它，但这次不是

     Try
        Dim dt As New DataTable
        dt = ugProducts.DataSource

        Dim ordnum As Integer
        Dim osql As OleDbCommand
        osql.CommandType = CommandType.Text

        osql.CommandText = "SELECT [Order_Number] FROM [Order_Freight] WHERE [Order_Reference] = ?"
        osql.Parameters.AddWithValue("@onum", lblReference.Text.ToString)

        ordnum = Convert.ToInt32(osql.ExecuteScalar)

    Catch ex As Exception
        errorLog(ex)

    End Try