Dim cmd1 As New SqlCeCommand
                'Dim reader As SqlCeDataReader
 
                cmd1.Connection = con1
                cmd1.CommandText = "Select * from User where user_id = 1"
                Dim reader As SqlCeDataReader = cmd1.ExecuteReader()
                Do While reader.Read
                    Console.WriteLine(reader("user_name"))
 
                Loop
                reader.Close()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try