Conexion a base de datos con vb.net

[Peterpay]

pues si te falta a mi parecer la asignacion

Public Class Form1
Dim CadenaConexion As String = "server=192.168.1.33;Uid=sa;pwd=pass;dataBase= Mani otas"
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
dllNoticias.CNoticia.NoticiaUsu(CadenaConexion)
Dim notic As New CNoticia
RTBNot.Text = notic.noticias
End Sub

por

Public Class Form1
Dim CadenaConexion As String = "server=192.168.1.33;Uid=sa;pwd=pass;dataBase= Mani otas"
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim notic As New CNoticia
notic=dllNoticias.CNoticia.NoticiaUsu(CadenaConexi on)RTBNot.Text = notic.noticias
End Sub