Public Function FetchAll(ByVal sql_string)
        Dim data() As String
        Dim i As Integer = 0
        Me.cmd = New SqlCommand(sql_string, Me.con)
        Dim sqldr As SqlDataReader = cmd.ExecuteReader()
 
        While sqldr.Read
            ReDim Preserve data(i)
            data(i) = CStr(sqldr("id"))
            MsgBox(data(i))
            i = i + 1
        End While
 
        Return data
    End Function