Witam, jak moge wyswietlic wartosc pola "points" do richtextbox?

56565656.png

co robię tu źle ?

  Dim myCommand As New MySqlCommand
    Dim myAdapter As New MySqlDataAdapter
    Dim myData As MySqlDataReader
    Dim SQL As String
    Dim mysqlconn As New MySqlConnection

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        MysqlConn = New MySqlConnection


        MysqlConn.ConnectionString = "Server=localhost;" & _
  "Database=1050763_ZeM;" & _
  "Uid=root;" & _
  "Pwd=00dimdim;" & _
  "Connect Timeout=30;"


        Dim notes = RichTextBox1.Text()

        myCommand.Connection = mySqlConn
        SQL = "SELECT `points` FROM `user` WHERE login='dimdim'"
        myCommand.Connection = mySqlConn
        myCommand.CommandText = SQL
        myAdapter.SelectCommand = myCommand
        Try
            mySqlConn.Open()
            myData = myCommand.ExecuteReader()
            myData.Read()
            mySqlConn.Close()
            If myData.HasRows = 0 Then
                MsgBox("No Entries Today!")
                myData.Close()
            Else
                notes = myData.GetString("notes")
                myData.Close()
                Me.Close()
            End If

        Catch ex As MySqlException
            MsgBox(ex.Message)

        End Try

poprawienie tytułu wątku i tagów - furious programming