ADO Database VB.Net

Public Class MainClass
   Public Shared Sub Main()
       'Strings
        Dim strConstant As String = "ABC"
        Dim strRepeat As New String("A"c, 20)
        Dim strMyString As String = "Hello World"
       strMyString = Nothing
        Dim sysNull As System.DBNull
        If strMyString Is sysNull Then
            strMyString = "Initialize my String"
        End If
        If Not IsDBNull(strMyString) Then
            Console.WriteLine(strMyString)
        End If
        
   End Sub
End Class